#lappend auto_path ./tclws ./tcllib ./tdom
  # niepotrzebne, jesli uruchamiac przez tclkit_2 
package re WS::Server
package re WS::Embeded

::WS::Server::Service -mode embedded -service qqq -ports 30000

# def typu "mojTyp"
WS::Utils::ServiceTypeDef Server qqq mojTyp {
  a {type string} 
  b {type int}
}

# met2 zwraca sekwencje wart. typu mojTyp o podanej dlugosci
::WS::Server::ServiceProc qqq {met2 {type mojTyp()}} {
  liczbaElem {type int}
} {zwraca sekwencje struktur typu mojTyp} {
  set w {}
  for {set i 0} {$i<$liczbaElem} {incr i} {
    lappend w [list a "a ku ku ($i)" b $i]
  }
  return [list met2Result $w]
}

::WS::Server::ServiceProc qqq {razyDwa {type int()}} {
  par1 {type int() comment {ciag liczb int}}
} {mnozy elementy ciagu razy 2} {
  set w {}
  foreach e $par1 {lappend w [expr {$e*2}]}
  return [list razyDwaResult $w]
}

::WS::Embeded::Listen 30000

vwait abc